home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #2 / Amiga Plus CD - 1995 - No. 2.iso / pd / mui / mirrormanager / unstall-mirrormanager < prev   
Text File  |  1995-04-11  |  727b  |  34 lines
  1. ; UnInstall MirrorManager from disk
  2.  
  3. (set TotalStepsN    0)        ;Total #of steps needed to perform an operation
  4. (set CurrentStep    0)        ;The currently performed operation step number
  5. (set AddToStepN        1)        ;CurrentStep will be increased by this value
  6.  
  7.  
  8. ;***
  9. (procedure stepWorkingMeter
  10. ;  TotalStepsN
  11. ;  AddToStepN
  12. ;  CurrentStep
  13.  
  14.     (set CurrentStep (+ CurrentStep AddToStepN))
  15.         (complete (/ (* CurrentStep 100) TotalStepsN))
  16. )
  17.  
  18.  
  19. ;***
  20. (procedure removeARexxScripts
  21. ;  ARexxScriptsPath
  22. ;  ARexxScriptsN
  23.  
  24.     (set TotalSteps ARexxScriptsN)
  25.     (set AddToStepN 1)
  26.     (set CurrentStep 0)
  27.  
  28.         (stepWorkingMeter)
  29. )
  30.  
  31.  
  32. (abort "The UnInstall script is under development...\n0% complete.")
  33. (welcome "Welcome to the MirrorManager UNstallation!")
  34.